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(protocol) Protocol for TfcNEx <-> Line Processor interactions 
Introduction 

Tfiis document is a detailed description of the Line Processor 
protocol. it is intended to serve as a guide to anyone wishing 
to implement the Line Processor protocol, as well as, a piece of 
documentation for the Line Processor. 

It should be pointed out here that the Line Processor contains a 
very small, slow microcomputer with little read/write memory. 
For this reason the protocol is terse ana error reports and/or 
recovery almost non-existant . The Line Processor terminal is 
treated more as a hardware device than an intelligent terminal. 
There are two types of line processors - alpha and graphic. 
Alpha line processors are used in configurations consisting of 
the line processor alpha/numeric display, mouse, Keyset, and 
possibly a hard copy printer or a cassette drive. Graphics line 
processors are used in the the minimum grapnics configuration 
consisting of a/n display, mouse, Keyset, and either a Tektronix 
4012 or 4014 storage cube display. 
Conventions 
Coordinates 
Alpha 

Coordinates designate character positions. For example 
(1,1) is the second character on the second line up from 
the bottom. 

The origin is at tne lower left corner of the screen. 
As components of the protocol, coordinates are passed as 
one byte of X and one of y and always nave 40B added to 
them to get them in the printing character range. This 
limits the max coordinate value to 3 373 which is 95 
decimal . 
Graphics 

Tne mouse is usea to track the cursor on either the a/n 
display or the storage tube. A switch acts as a toggle to 
select which screen is to be tracked. Coordinate values 
are identical to the alpha line processor when they 
originate from the a/n display, although they are sent as 
two bytes each of x and y. Graphics coordinates from the 
storage tube are sent as 10 bit values in the range 1024 to 
2047, with 1024 at the lower left of the screen. 
ITY Simulation 

in TTY simulation, scrolling always takes place on a line feed 
(LF) not a carriage return (CR). Carriage return does the 
obvious thing and no more. 
Special and Control Characters 

Protocol strings begin with 33b and are followed with an 
operation type character in the range 40b to 120B. 
When outside a protocol string, all control characters (0 thru 
37B) are ignored by the Line Processor, except: 
When the cursor is being tracked: 
*G which rings a bell if possiDle 
CR and LF whicn do the right thing 
Notice that backspace character (*H) is not implemented in 
TTY simulation (i.e. when the cursor is oeing tracked). 
when tne cursor has been positioned: 
*G whicn rings a bell if possible 
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~H which does a backspace cursor 
When inside a protocol string, RUBOUT is NOT ignored. When 
outside, it is ignored. 
Conventions for this document 

In this document, octal numbers are followed by "B". 
"Unescorted" means that characters are sent as is without 
wrapping them in an protocol sequence. 
Line Processor to Main Computer Protocol 

Communication in this direction will adhear generally to the 
IMLAC protocol as outlined in (1 JOURNAL, 14345 ,) . 
In particular: 

Keyboard cnaracters 4GB thru 177B are unescorted. 
Keyboard characters thru 376 are sent as: 
34B, 43B, cnar+140B, coordinates 

NUTK: An alternate (and preferred) way is to send these 
control characters as is (unescorted) except for 2B, 4B and 
30B. Those are sent as above. 
Mouse button changes are send as: 

34B, 436, buttons+lOOB, coordinates 

where buttons is tne binary image of button positons (000 
thru ill binary). 
Keyset strokes 1 thru 32B are send as: 

stroke+1406 (e.g. l -> a) 
keyset strokes 33B thru 37B are sent as: 
(,) 
C.) 

(;) 
(?) 

(space) 

processors coordinates are X t 40b, Y + 40B. 
For graphics line processors coordinates are X(bits 10-6 
(MSB's)) + 40B, xfbits 5-0 (LSB')) + 40B, YCDits 10 - 6) + 
40B, YCbits 5 - 0). 
When not in coordinate mode the mouse buttons are ignored and 
keyboard control characters (0 thru 37B) are sent in unescorted 
fashion. 

At power-up and after the "system-reset" button is pushed, the 
Line Processor signals the Main computer by sending: 
( 1768, 177B ) 

The purpose of this is to indicate to the applications 
program that the Line Procesor is now in a "power-up" state 
(see below) , 
When the Line Processor detects an error that it cannot live 
with, it sends a string to the applications prorgarn and dies with 
an error code flashing in the lights. The user is then forced to 
hit "system-reset". The string is as follows: 
( 176B, 418, Ccount*, Chars) 

Where Ccount' is 40B more than the number of characters 
that follow. Currently 8 characters are sent, and the 
string looks like: 
( 176B, 41B, SOB, err', ctl', trK', rpt', sw', obuf, bl', b2' 



33B -> 


54B 


34B -> 


56B 


35B -> 


7 3b 


36B -> 


77B 


37B -> 


40B 


For alpha 


line 



) 



Where the ' indicates that 40B has been added, 
err: The error coae, one of 

10B = output buffer to display overun (impropper 
padding) . 
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lib = some other butter overun (e.g. printer butter) 

12B = strange error relating to display output 

buffer. 

13B = protocol sequence error (e.g. bad comand) 

14B = protocol value error (e.g. bad coordinate). 

ctl: control state parameter (0 = not in a command) 

trk: mouse tracking code: 

= positioned 

1 = tracking 

2 = cursor in small TTY window 
5: cursor at unknown position 

12B = Cursor in tull screen window 
rpt: repeat, code, normally zero 

sw: sense switch irnmage in order 0-1-2-3 (sw3=LSB) 
obuf: display output buffer character count 
bi: possibly low order 4 bits of last input char 
b2: possibly nigh order 4 bits of last input char 
From Main Computer to the Line Processor 

The following functions are sent by the applications program and 
performed by the Line Processor. All codes, except the escape 
(33B) should be printing characters. Padding characters shouid 
be "RUBUUTs (177B). The baud rate factor (t) and and display type 
are obtained by the applications program by sending an interogate 
command. 
Note: 

The cursor is generally used to track the mouse. Some 
commands stop the tracking and allow the cursor to be used 
for display manipulation. "Tracking mode" refers to 
whether the mouse is being tracked by the cursor or not. 
Display-terminal dependent parameters: 

The following table yields the timing and other factors 
required by the protocol that depend on the type of 
terminal connected to the Line Procesor. Tnat type, Ditype, 
is obtained from the interrogate command (see below), 
param Ditype= 

12 3 4 
Del BO 7 1 17 
Ins 7 30 17 
Cir 5 6 3 17 
Xmark Ho Yes Yes Yes 

Del is the time to delete a line. 
Ins is the time taken to insert a new line. 
Clr is the time taken to clear the screen. 
Xmark indicates if a marked character needs to be 
re-written after the mark is removed. 

See the interrogate response command for other display 
parameters. 
Position cursor on alpha display and stop tracking mouse. 
Send(33B, 40B, X', Y') 

X' = X coord CO thru Xmax) + 40B 
Y f = i coord (0 thru Ymax) + 4GB 
result : 

Positions cursor to specified location. Tracking stops 
until a "resume tracking" or a reset is received. Any 
unescorted characters will be written on the screen and 
the cursor will be advanced once after each character. 
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writing beyond the end of the line is not advised as the 
result depends on the terminal manufacturer and model. 
Specify (small) TTY simulation window on alpha display 

SendC 33B, 41B, top, bottom) 

top = Y' tor top line of window 
bottom = Y* for bottom line of window 

result: 

Invoices a small TTY simulation window of specified size 
and location. This window will be used until a new one 
is specified or a reset is received. This does not 
change the tracking mode. 
Reset 

SendC 33B, 51B ) 

result; 

screen cleared 

TTY simulation window set to full screen 

bug selection stack reset 

resume tracking (see) 

padding: 

Send pads as for clear screen. 
Resume tracking mouse 

Send( 33B, 4^B ) 

result: 

The cursor is used to track the mouse. Any unescorted 
characters will go into the TTY simulation window 
currently in use. 
'Write string of blanks 

SendC 33B, 43B, N' ) 

N ' = number of blanks to be written. 

result: 

The specified number of blanks are written starting at 
the current cursor position. The cursor is left at the 
character position following the last blank. Assumes the 
cursor nas been positioned appropriately beforehand. 
This command is a no-op if W is not >= 41B AND <= 177B. 

padding: 

This command must have N/f padding characters following 
it. 
Push bug selection 

SendC 33B, 46B, X', Y' ) 

result : 

The coordinates are pushed on a stack and the character 
at that location is somehow brought to the user's 
attention. The stack will hold a maximum of 8 
selections. This command includes a resume tracking. 

padding: 

This command must have 8/f padding characters following 

Pop bug selection 

SendC 33B, 47B ) 

result: 

The top entry on the Dug selection stack is popped. The 
corresponding character on the screen is no longer 
marked in a special way. If the stack is empty, this 
command is a no-op. This command includes a resume 
tracking operation. 
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For some DItypes, tne applications program must restore 
the character or the marked position will be replaced by 
a space, 
padding: 

This command must have 8/f padding characters following 

Delete selected line 
SendC 33B, 44B ) 
result : 

The cursor position selects a line to be removed from 
the screen. Ail following lines are moved up one line. 
Tne contents of the last line are undefined. The X 
coordinate should be zero, otherwise tne results are 
undefined, 
padding: 

This command requires Del/f padding characters (Del is 
obtained from the table). 
Insert selected line 
SendC 33B, 45B ) 
result : 

The line which the cursor is on, and all following 
lines, are moved down one line. The cursor is not 
moved, and hence is on a blank line. Lines above the 
cursor are not altered. The last line (before the 
execution of this command) should be considered "lost." 
The X coordinate should be zero, otherwise the results 
are undefined, 
padding: 

This command requires Ins/f padding characters (Ins is 
obtained from the table). 
Clear screen 

SendC 33B, 50B ) 
result: 

The entire screen is cleared. The cursor position is 
not generally known. The TTY simulation window location 
and the bug selection stack are not altered. The 
tracking mode is not changed, 
padding: 

This command requires Clr/f pad characters; 
Interrogate line processor 
SendC 33B, 55B ) 
result: 

A response to the interrogate command is sent as a 
protocol string of this form: 

34B, 46B, Xmax+40B, Ymax+40B, LPtype, Dtim Rate 
Where 

Xmax is the maximum x coordinate 
Ymax is the maximum y coordinate 
LPtype is in [4UB-177BJ and designates type 
The least significant four bits of LPtype 
designate display terminal type (call it 
Dltype) 

Currently defined are: 

(1) Delta Data 5200 

(2) Hazeltine H2000 

(3) Data Media Elite 2500 
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(4) Lear Siegl 

The most significant 

Processor type (call 

Currently defined 

(0) Complete a 

copy printer r 

(2) Line Proce 

Printer 

(6) Graphics 1 
Tektronix 4014 

(7) Graphics 1 
Tektronix 4012 

Dtim is a characteristi 
scrolling, a line feed 
(l)tim + 14)/f pad charact 
Rate indicates the Line 
rate : 
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600 baud: 

1200 baud: 

2400 baud: 

4800 baud: 

9600 baud: 
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TENEX RESTARTING 

The Line Processor will detect a TENEX restart, by looking 

for the ten 33B # s it sends out at startup time. At that 

time it will place itself in a state as though the hardware 

reset button had been pushed. 
Open printer (alpha line processor only) 

SendC 33B, 53B ) 

Result: 

Opens the printer for output. Protocol to the printer 
must be observed: (1) open it. (2) wait for protocol 
string "request" (below). (3) send strings in response 
to requests. (4) close it. 

"Request" string, sent back: to the main computer: 
OB NULL 

Each request enables the application program to 
send an additional 16 characters via the 
printer string protocol below. 
Note: The count indicates the Line Processor storage 
allocated for the next printer string. Sending a longer 
string will result in a "receive error" (error light on 
panel) . 
Close printer (alpha line processor only) 

Send( 33B, 54B ) 

Result: 

Closes the printer. Actual close will not take place 
until all characters in the output buffer are printed. 
That is, the close may follow the last string of 
cnaracters immediately. It is possible (but very 
unlikely) that a "request" protocol string may be sent 
to the main computer after the close is sent to the Line 
Processor. 
Printer string (alpha line processor only) 

Send( 33B, 52B, Dev, Count+40B, <characters> ) 

Result: 

The Dev is normally 40B and is ignored by Line 
Processors with one printer. The Count must not be 
greater than the sum of the counts in all "request" 
protocol string not already fulfilled. It may be less. 
The actual character string may contain any characters. 
They will be sent to the printer without translation or 
special handling. 

Note: 

Strings may be sent to the printer without opening it if 
timing constraints are observed carefully. In this case 
the applications program must know the baud rate of the 
printing device a well as the Line Processor - Main 
computer line. The program just issues printer strings 
and no requests are sent back to the Main computer by 
the Line processor. This was a deliberate implementation 
to allow higher speed printing over networks without 
waiting for the response. Observe that if strings are 
sent too fast the printer buffer in the Line Processor 
will overflow: data will be lost and the Line Processor 
will die. The printer buffer normally holds 47 
characters . , 
Open graphics display (graphics line processor only) 
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SendC 33B, 53B ) 
Result: 

Disables mouse tracking on the graphics display. 
Close graphics display (graphics line processor only} 
SendC 33B, 54B ) 
Result: 

Ensables mouse tracking on the graphics display. 
Write graphics display (graphics line processor only) 
SendC 33B, 52B, Dev, Count+40B, <characters> ) 
Re suit: 

The Dev is normally 40B and is ignored by Line 
Processors. Characters from the application program are 
written directly on the graphics display. Since the 
characters are not buffered, the graphics display must 
be connected at a higner baud rate than the external 
processor . 
Set graphics cursor resolution (graphics line processor only) 
SendC 33B, 62B, N' ) 
Result: 

U controls the mask applied to the cursor coordinates 
before they are used to position the cursor on the 
graphics display: 
N = Mask = 

=1 =1 LSB is cleared (etc) 
= 2 =3 
= 3 =7 
=4 = 17B 
=5 = 376 
Application notes: 

Avoid writing text (or "string of blanks") beyond the end of a 

line: the display may insert an unwanted line or drop the 

extra characters. 

Avoid positioning the cursor to any x>xmax or y>Ymax. 

Avoid doing an insert line on the last line: the display may 

scroll the entire screen. 

Delta Data (DItype=l) must be treated as a special case in the 

following respect: 

When writing text at (x,y) on a line which does not already 
have text on it up to position x (e.g. after a clear screen 
or insert line), the applications program must send x/f pad 
characters after the first character written at position 
(x,y). The display takes that long to move a CR symbol 
into the proper display memory location. (Our thanks to 
Delta Data). 

We expect to stop supporting Delta Datas soon. 
NOTE: 

The Line Processor has a reset button on it (which will be 
used only on rare occations). After power up or a hardware 
reset, the following state prevails: 

The screen is clear, the mouse tracking in operation. 
The bug selection stack is empty. 
The full screen TTi simulation is in effect. 
Coordinate mode is NOT in effect. 
Printer is closed 
All TTY simulation windows currently work as follows: Text is 
inserted in the last line and "scrolling" occurs on each line 
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feed (i.e. it does not start on the top line of the window as 
you may prefer). A CR moves the cursor to left margin, a LF 
effects a line break. Typing beyond the last character of the 
line causes a line "wrap" - i.e. new text replaces the old 
line, starting from the left margin. The only way to clear a 
small TTY window is to send U line feeds into it, where N is 
the number of lines in the window. 

The usual sequence from the applications program will be to 
position the cursor and perform some function, or write text, 
or both. It must end sucn a sequence with a "resume tracking" 
command. Any broadcast messages, links, etc. that come down 
the line between the cursor position and the "resume tracking" 
will go wherever the cursor happens to be. 

Normally, oroadcast messages and the like tfill go into the 
TTY simulation window, The difference being that they are 
not preceeded by a position cursor command. 
REENTER code in NLS will clear and repaint the entire screen 
Mouse tracking will oe done by the Line Processor under the 
following conditions: 

IF the terminal has received a "resume tracking" command 
since the last position cursor command, AND 
IF there is no input from the TEN, AND 

the mouse coords have changed since the last mouse tracking 
operation, or the cursor has been moved since the last 
mouse tracking operation. 
Tracking stops under the following conditions: 
A position cursor command comes from the TEfi . 
Summaries 

Line processor to Exernal processor 

CHAR SEQUENCE MEANING 

Call line processors) 

CHARACTER iMormal Character 

(Ascii values IB to 177B except (String request), 2 C*B), 

4 ( A D), 34B (BCESC), and 176B (Reset)) 
BCESC 46 MX MY TP DT BD Interrogate Response 
176 177 System Reset 

176 41 CCNT CCtfRS Error report 

(alpha line processors) 

BCESC 43 CC X I Optional Sequence For Control 

Chars 

BCESC 43 CC X Y Sequence For ~u CCA), *B (CDOT), 

"X (CD) 

BCESC 43 MB X Y Sequence For Mouse Buttons 

(NULL) String request 

(graphics line processors) 

BCESC 45 CC XI X2 Yl Y2 Optional Sequence For Control 

Chars 

BCESC 45 CC XI X2 Yl Y2 Sequence For *D (CA), *B (CDOT), 

"X (CD) 

BCESC 45 MB XI X2 Yi Y2 Sequence For Mouse Buttons 

Where: 

All numbers are in octal 
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CCNT = number or CCH 
CCHRS = CCNT-40 data 
CC = control charact 
MB = current mo]se b 

X = current x corrdi 
Y = current y corrdi 

XI = top 6 significa 
X2 = least significa 
Yl = top 6 significa 
12 - least significa 
MX = maximum x coord 
MY = maximum y coord 
TP = line processor 
DT = terminal delay 
BD = line processor 

Exernai processor to Line 



RS + 40 

bytes; each byte is offset by 40 
er + 140 

utton state + 100 
nate + 40 
nate + 40 
nt oits of x 
nt 6 bits of 
nt bits of y 
nt 6 bits of 
inate + 40 
inate + 40 

type and version + 40 
time cnaracteristic + 40 
receive baud rate + 40 
processor 



coordinate + 
x coordinate 
coordinate + 
y coordinate 



40 

+ 40 
40 
+ 40 



COMMAND 



CODE 



PADDING 



position 
TTY wind 
resume t 
write bl 
delete 1 
insert 1 
push bug 
pop bug 
clear sc 
reset 
printer 
open pri 
close pr 
interrog 
standout 
standout 
coordina 
coordina 
cursor r 
remote r 
(mcs4) MCS-4 Asse 
FILE msc4 CHEC 
META file 
ERROR: -> ' 

size: s=ioo 

DUMMY: add 
FIELDS: OP= 
AD1 = [4:8' 
ATTRIBUTES: 
% declarations 
file = ("F 
< M -FILE 
[>*mcs43 
$declare 
end => 
>"mcs 
&TABL 



ow 

racking 
anks 
ine 
ine 



reen 



string 
nter port 
inter port 
ate 

mode on 

mode off 
te mode of: 
te mode on 
esolution 
esart 
mbler in TREE META 
K 



33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
33B 
338 
10 



40B, 

41B, 

42b 

43b, 

44B 

45B 

46B, 

47B 

50b 

51B 

52b, 

53b 

54B 

555 

56B 

57B 

60B 

61B 

62B, 

33B' 



X ' , Y ' 

Y TUP', Y BQTTUM' 



N 



X', Y' 



DEV, CNT', String 



N* 



; $st :end 
M=1U0 K= 
mt lh neg; 
[4:8] 0PA= 
3 AD2=[4;4 
reg pair; 
parsing 
ILE" / -> 
"*1> £S de 



none 

none 

none 

N/F 

DEL/F 

INS/F 

8/F 

8/F 

CLR/F 

CLR/F 

see text 

see text 

none 

none 

none 

none 

none 

none 

none 

none 



U*; 

50 N=1000 L=10 G=10; 

[4:4] QP8=[8:4] TYPE=[4:18] P= [ 
] AD3=[4:0] AD8=[8:0]; 



4:8] 



"FILE" ) .ID <"-MCS-4 ASSMBLER 12/il/73"> 
fned &UISCARD 



$st :endtJ*; 



end $SYMS( 

es; 



?C<* aefnea *$ / <"undefined symbol: " *$ > ) 
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declare = 

"SET" #<',> C C .ID / ,UID ) '= .NUM :decL23*) '; / 
"REGISTER" #<',> ( .ID '= @S reg .NUM :dec[23*3 '; / 
"PAIR" #<',> C .ID '= (as pair .NUM : regpair [23 *) '; ; 
dec [-,-3 => >*1_*N2; 
regpair [-,-3 => >*1 - LSH(*N2)1; 
% statements % 

st = ["EwD" &FAIL 3 

.$( .ID ': &LABEL ) :label[$J * instr V -> '; * ; 
laoel [$] => $( >*$ ); 
instr = opl / op2 / op3 / .UID (sym4 :simp[23 / :simp[13); 
simp % simple: OP and optional address % 
[-J => *vi-OP8 \0; 
[-,-j => *vi*QP stopa[*23 \0; 
sym = 
C .ID 

C ?@ defned / <*1 " undefined" LOO ) 
/ .NUM :con[l] ) [".LH" :ihil] / ".RH" 3 / 
'- sym :negtl3 ; 
sym4 = sym $( *+ sym :addl23/ '- sym :neg£13 :add[23); 
stopa 

L-3 => + val4in]*0?A? 
val4 

[addJ := + vai4[*l:13 + val4[*l:2j; 

% above is ugly but can't start exp with construct that 
appears to be a node test % 
[con] := *N1:1; 
[03 := 0; 

[neg] := -vai4[*i:13 ; 
[lh[conj3 := *N1:1:1 ;/ 16; 
[lhj := *vi:i ;/ 16; 
[-3 := *Vl; 
val 

[-3 => +val4[*13; 
opl = 

"JCN" sym4 [',3 adr :two[=l, "JCto", 23 / 
"ISZ" sym4 [',3 adr :twot=l, "ISZ", 23 / 
"FIM" regpr C',3 data :two[=l, "FIM", 23 ; 
op2 = 

"JUN" adr ;two[=2, "JUN", =0, 13 / 
"JMS" adr :two[=2, "JMS", =0, 13 ; 
op3 = 

"FIN" regpr :one[=3, "FIN", =0, 13 / 
"SRC" regpr :one[=3, "SRC", =1, 13 / 
"JIN" regpr :one[=3, "JIM", =1, 13 / 
"DATA" data :gendata[l] / 
"ADR" adr :genadr[l3 / 
"PAGE" :page[3 / 
"ZERO" .NUM :zroli3; 
regpr = .ID ?@ pair; 
data = adr / ' C 

sym4 ( ', sym4 :double[23 / :val[13 ) ') ; 
con 

[-3 => *Nl; 
double 

[-,-3 => + val4[*l]"AD2 + val4 [*23 "AD3 ; 
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adr = .ID / .ftuM : con [13; 
page => &BSS MASK(lc+255)7400B-lc, ; 
% instruction generation % 
gendata 

t.IDJ => 4~TYPE *1\1; % 8 bit reioc adaress % 
[double] => 4*TYPE *1\1; 

[con] => *Ml:l"OP8 \0; % 8 bit data word % 
Ival] => +val4i*l : 1] *QP8 \0; % data word ( & bits ) % 
genadr 

[-] => 4 ~ TYPE *1\1? % address - 8 bits % 
one [-,-,-, -J => % one 8 bit instruction % 
*Nl*TYPE % instruction type % 
*V2*UP % opcode % 
stopa[*4] % OPA field % 
[?*N3#0 20B] \0; % special opcode bit % 
two [-,-,-, -J => % two words, UP OPA adr % 
♦MISTYPE % opcode type % 
*V2*0P % opcode % 

stopa[*3] \0 % OPA field ends first oyte % 
*4\1 ; % address % 
zro [-] => &BSS *M,; 
END of MCS-* 
(pprog) Program to punch tapes tor programmer board 

(punch) FILE % to punch tape for MCS-4 programmer (.110,) 
(punch. rel, ) % 
% declarations % 

(oprec) RECORD ughl[4], opa[4], op[43; 

(adrec) RECORD ad3L4j, ad2[4], aci [4] , q[6], type[4]; 

EXTERNAL sysovr; 

DECLARE intel=i001, prolog=i()02 , lprolog=10Q3 ; % codes for 

programmer type % 

DECLARE progend=1010, progcr=10ll; % codes for Pro-log % 

DECLARE 

110stK[50J , 

ugly=777777UOOOQiB, % add to L10 string to maKe TENEX string % 

lc, % location counter % 

cell, % address of last cell sent to programmer % 

pdevice, % punch device % 

pjfn, % jfn for paper tape punch % 

ojfn, % jfn for printer listing % 

ijfn, % jfn for listing input % 

adrl, % first address % 

adr2, % last address to program plus 1 % 

string[20J, % line buffer % 

leadch=377B, % rubout for leader character % 

one='N, % INTEL one character % 

zero='P, % INTEL zero character % 

direct=l, %0=paper tape, #0 = directly to programmer % 

monitor, % =1 means echo programmer stuff on TTY % 

progtype, % programmer type (intei or prolog) % 

adrerr=0, % address errors count % 

comflg=0, % comment flag, true=inside comment in ijfn text % 

lastf=0, % flag, TRUE means we have buffered one char % 

lastchar, % this is the buffered char % 

laste, % this is the end code for confirm % 

lastceli, % this is the location for the char % 
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tabs=34; % number of chars to tab if no binary stuff % 
REGISTER 

stack=9, mark=lQ, rl=i, r2 = 2; 
SET llusz=50; 
SET loader=761265B, loadexit=761321B; 

% symbols for TENLDR are at 777332 ,, 764332 % 
% procedures % 

(main) PROCEDURE; % main entry points in here % 
(sysovr) : 

stack. LH _ -SllOsz; stack. RH _ SllOstk; 
error ($ M stack overflow"); 
(jump): GOTO loadereturn; 
(envect): GOTO start; GOTO rstart; 
Cinit): % set entry vector % 
Isevec(465, 2B6 + $envect ) ; 
ihaltf ; 
(start): % starting location % 
•reset; !clzff(4B5); 

stack. LH - -SllOsz; stack. RH _ SllOstk; 
adrerr «. 0; 
[Sloadexitj - jump; 

Ipsout ($"specify REL file - end with ALT - "+ugly); 
GOTO loader; 
% NOTICE: 

loader is the reenter location of TENLDR and loadexit is 
the location of the JSYS HALTF in TENLDR (just oefore 
sysovr). They must be fixed up each time TENLDR is 
changed ill % 
(loadereturn): % return point from loader % 
LOOP BEGIN 

ipsout ($"punch file: M +ugly); 

IF NOT SKIP igt jfn(060003B6, 100000101B) THEM 
BEGIN 

jerror (rl ) ; 
REPEAT LOOP; 
END; 
pjfn - rl; 

pdevice - Idvchr (pjfn) ; % device designator % 
direct _ 0; 
CASE pdevice. LH OF 

=600012B, =0; % TTY: % 

BEGIN % directly to TTY port, hence to programmer 

*s 

direct - 1; 

progtype « 1; 

IF NOT SKIP iasnd(pdevice) THEN jerror(rl); 

END 
=600005B: % PTP: % 

BEGIN 

IF NOT SKIP iasnd(pdevice) THEN jerror (ri); 

progtype _ l; 

END; 
=600015B; % NIL: % 

progtype „ 0; 
ENDCASE % file % 

progtype _ 1; 
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IF progtype THEN CASE ipbinC ipsout C$"programmer type is 
CL, I, or P) "+ugly)) OF 

= 'L, =*l: % Lineprocessor and 1200 baud prolog % 
BEGIN 

ipsout($"ineprocessor and 1200 baud prolog"+ugly) ; 
CASE ipbinO OF 

=CR, =EOL, =CA: NULL; 
ENDCASE 
BEGIN 

ipsoutC$"? "+ugly); 
REPEAT CASE 2; 
END; 
progtype _ lprolog; 
END; 

BEGIN 

ipsout ( $"ntel "+ugly) ; 

CASE ipbinO OF 

=CR, = EOL, =CA: NULL; 
ENDCASE 
BEGIN 

ipsoutcs"? "+ugly); 
REPEAT CASE 2; 
END; 
progtype _ intel; 
end; 
='P, ='p: % Pro-log % 
BEGIN 

ipsout ($"ro-log"-i-ugly) ; 
CASE ipbinO OF 

=CR, = E0L, =CA: NULL; 
ENDCASE 
BEGIN 

ipsoutCS"? "+ugly); 
REPEAT CASE 2; 
END; 
progtype _ prolog; 
END; 
ENDCASE 
BEGIN 

ipsout($"? "+ugly); 
REPEAT CASE } 
END; 
IF progtype THEN 

CASE ipbinC ipsout C$"want to see echo from 
programmer?"+ugly) ) OF 

=CR, = 'Y, = 'y, =EOL, =CA: monitor _ 1; 
ENDCASE 
BEGIN 

iboutUOlB, EOL); 
monitor «. 0; 
END 
ELSE monitor - 0; 
IF NOT SKIP iopenftpjfn, 10B10+3B5) THEN 
BEGIN 
jerrorCrl); 
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REPEAT LOOP; 
END; 
EXIT LOOP; 
END; 
ipsout ($'"entire tile to be programmed?"+ugly) ; 
CASE ipbinC) OF 

=CA, = 'Y, = 'y, =EQL: 
BEGIN 
ijfn « 

openC$"sequential listing input: ", 
160Q03B6, 7B10+2B5); 
IF idvchrCi jfn) .LH = 600015B THEN 
% i.e. ijfn is NIL: % 
BEGIN 
ijfn _ 0; 

IF NOT SKIP igtjfn(400G0166, $ "NIL: "tugly ) THEN 
BEGIN 

jerror (rl ) ; 

error ($"cannot proceed"); 
END; 
ojfn _ ri; % NIL: also % 
IF MOT SKIP lopenf Co jf n , 7B10+1B5) THEN 
BEGIN 

jerror (rl); 

error C$"cannot proceed"); 
end; 

END 
ELSE 

ojfn - open($"listing output: ", 660003B6, 

7B1G+1B5); 
adri _ $mcs4; 
adr2 _ $mcsend; 
END; 
ENDCASE 

Csstart): BEGIN % restart entry point % 

adrl _ inputl ($"f rom: ")+$mcs4; 

adr2 _ MIN ( input 1 ($"tnru H ) + $mcs4 + l, Smcsend); 

Crstart): % restart entry point adrl, 2 setup % 

lastf . 0; 

iboutUOlB, EOL); 

IF NOT SKIP !gtjfnC400001B6, $"NIL : " + ugly ) THEN 

BEGIN 

j error (rl ) ; 

error ($"cannot proceed"); 

END; 
ojfn « rl? 
IF NOT SKIP iopenf (o j f n, 7610+1B5 ) THEN 

BEGIN 

jerror (r 1 ) ; 

error C$"cannot proceed"); 

END; 
ijfn - 0; 
END; 
IF direct THEN 
BEGIN 
icf ibf Cpjfn) ; 
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icfobf Cpjfn) ; 
END; 
stacK.LH _ -$110sz; stack. RH _ SHOstfc; 
outputC) ? 
f indlineC ) ; 

IsoutCojfn, Sstring .V 18M6, 0); 

IF NUT SKIP inoutCojfn, adrerr, 10) THEN jerrorCr3); 
isoutCojfn, $" address errors"+ugly , 0); 
IF NOT SKIP IclosfCpjfn) THEN jerrorCrl); 
IF NOT SKIP iclosfCojfn) THEN jerrorCrl); 
IF NOT SKIP iclosf(ijtn) THEN jerrorCrl); 
IF WOT SKIP »nout(101B, adrerr, 10) THEN jerror(r3); 
Ipsout($" address errors"+ugly) ; 
Ipbout CEOL) ; 

ipsout cs" successful completion"+ugly); 
IF direct THEN 
BEGIN 

ipsout C$"deassign device? M +ugly); 
CASE Ipbint) OF 

=EOL, =CR, = 'Y, = 'y: 

IF NOT SKIP Jreld(pdevice) THEN jerrorCrl); 
ENDCASE NULL; 
END; 
ihaitf ; 
END. 
Cinputl) PROCEDURE % input a number from the user % 
% arguments % 

Cs); % an optional string to be typed % 
LOOP 

BEGIN 
IF s THEN 
BEGIN 

ipbout(EOL); ipsout(s+ugly) ; 
END; 
IF NUT SKIP IninUOQB, 0, 10) THEN jerror(r3) 
ELSE EXIT END; 
RETURNCr2) END. 
(open) PROCEDURE % open a file % 
% formals % 

c s ^ *5 string -s 
getw, % gtjfn word % 
opnw); % openf word % 
LOCAL jfn; 
LOOP BEGIN 

IpsoutCs+ugly) ; 

IF NOT SKIP IgtjfnCgetw, 100000101B) THEN 
BEGIN 

jerrorCrl ) ; 
REPEAT LOOP; 
END; 
jfn „ rl ; 

IF NOT SKIP iopenfCjfn, opnw) THEN 
BEGIN 

jerrorCrl ) ; 
REPEAT LOOP; 
END; 
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RETURN ( jfn); 
END; 
END. 
(output) PROCEDURE; % main output procedure % 
LOCAL w; 

lc _ cell _ acirl; % first symbol in program % 
leader ( ) ; 

IF lc#srncs4 THEN % not at start of prog - check for split 
instr % 

CASE Llc-lj .type OF 
= i = ') • 

BEGIN % special case - start of 2nd halt of 2 byte 

instr % 

w _ [lcJ -$mcs4; % relocate addr % 

punchst t ) ; 

punchbyte(w,ad2 , 0) ; 

punchbyte(w.ad3 , 1 ) ; 

punchendC ) ; 

BUMP lc, cell; 

checKlcC ) ; 

END; 

ENDCASE NULL? 
YlHlhE lc<adr2 DO 
BEGIN 

f indline ( ) ; 
punchicC ) ; 
w - tic] ; 
punchi ( ) ; 

isoutCojfn, Sstring .V 18M6, 0); 

IF w=0 THEN % string of zeros case : keep listing aligned % 
WHILE [Clc_cell_ic + 1)]=0 AND lc<adr2 DO 
BEGIN 

checklcC ) ; 
punchicC ) ; 
punchi C ) ; 
ibout (ojfn,E0L) ; 
END 
ELSE BUMP lc,celi; 
checklcC ) ; 
END; 
leader ( ) ; 
RETURN END. 
(checklc) PROCEDURE; % check for edge of ROM page % 
IF Clc-$mcs4) .A 8M = THEN leader I); 
RETURN END. 
(leader) PROCEDURE; % punch leader or setup programmed 
LOCAL i; 
IF direct THEN 
BEGIN 
IF lastf THEN 

conf irmUastcell, lastchar, laste); 
lastf - 0; 

IF lc>=adr2 THEN RETURN; 

!psout($ M type CR when PROM is ready"+ugiy) ; 
CASE bincnrU OF 

=CR, =E0L, =CA: NULL; 
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ENDCASE REPEAT CASE; 
CASE progtype OF 
=intel: 

BEGIN 

ibout (pjfn, 'P); 

idisms(750); 

IF NOT SKIP inout(pjfn,(lc-$mcs4) .A 8M, 14G003B6+10) 

THEN jerror(r3); 

!disms(7 50) ; 

IF WOT SKIP incut(pjfn,MINC(adr2-$mcs4 -1), 

(lc-$mcs4) .V 255) .A 8M, 140003B6+10) THEN 

jerror (r3) ; 

Idisms(750); 

END; 
=pro!og: 

BEGIN 

ibout (pjfn, '*) ; conf irm($mcs4, f * , progcr); 

Ibout (pjfn, 'P) ; conf irm( $mcs4 , 'p, progcr); 

i -. lc-$mcs4; 

ibout (pjfn, hexCi ,ad2) ) ; conf irm($mcs4 ,hex ( i .ad2) , 0); 

ibout(pjfn,hex(i ,ad3) ); conf irm( $mcs4 , hex ( i.ad3) , 0); 

i « MXW C Cadr2-$mcs4 -1), Clc-$rncs4) .V 8M) .A 8M; 

ibout (pjfn, hex(i.ad2) ) ; conf irm( $mcs4 , hex ( i .ad2) , 0); 

ibout(pjfn,hex(i.aa3)); 

conf irm($mcs4, ' ,0); % ?????????? % 

END; 
=lprolog: 

BEGIN 

Ipout (pjfn, '*) ; conf irm ( $mcs4 , '*, progcr); 

lpout (pjfn, 'P) ; conf irm($mcs4, 'P, progcr); 

i _ lc-$mcs4; 

lpout (pjfn, hex(i.ad2) ); conf irm($mcs4,hex(i ,ad2) , 0); 

lpout(pjfn,hex(i.aa3)); conf irm( $mcs4 ,hex ( i.ad3) , 0) ; 

i „ MINC Cadr2-$mcs4 -1), (lc~$mcs4) .V 8M) .A 8M; 

lpout (pjfn, hex(i ,ad2) ) ; cont irm( $mcs4 ,hex ( i .ad2) , 0); 

lpout (pjfn,hex(i .ad 3) ) ; 

conf irm($mcs4, ' ,0); % ?????????? % 

END; 
ENDCASE NULL; 
END 
ELSE FOR i.O UP 1 UNTIL = 75 DO Ibout (pj fn , leadch ) ; 
RETURN END. 
(binchr) PROCEDURE; % do a pbin % 

IpbinO; RETURN (rl) END. 
(puncnic) PROCEDURE; % put location on listing% 
LOCAL i; % location % 
i _ lc-$racs4; 
CASE progtype OF 
= intel : 
BEGIN 
IF i .A 2M = THEN 

BEGIN' 

ibout(pjfn, CR); ibout (pjfn, LF) ; 

IF NOT SKIP inout(pjfn,i,140G04B6+10) THEN 

jerror (r3) ; 

ibout (pjfn, ' ) ; 
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EimD; 
END; 
=prolog: 
NULL; 
=lprolog: 

NULL; 
EwDCASE, NULL; 
IF NOT SKIP inout(ojfn, i , 140004B6+iO ) THEN nerror(r3); 
% put hex address on listing % 
ibout (o jfn, ' ); ibout to jfn, 'P) ; 

IF NOT SKIP inoutCojfn, U.adl) ,14000166+10) THEN jerrorCr3); 
IboutCojfn,*:); 
ibout Cojfn,hex(i.ad2 j ) ; 
ibout Co jfn, hex (i . ad3 ) ) ; 
RETURN END. 
(punch!) PROCEDURE; % punch instr. (maybe two bytes) % 
LOCAL 

w, % the instruction word % 
r; % flag for opcode FIM or not % 
* - [lcj ; 
CASE w.type OF 

=0, =3: % 8 bit instr COP OPA) % 
BEGIN 

puncnst C ) ; 
punch.byteCw.op , 0) ; 
puncnbyteCw .op a , l ) ; 
puncnendc ) ? 

isoutCojfn, $" "+1 .V 16Mb, 0); 

END; 
=1: % 16 pit instr OP OPA + 8 oit adr % 
BEGIN 

puncnst C); 
puncnbyteCw. op ,0) ; 
punchby te (w .opa , i ) ; 
punchendC ) ; 

f - (IF w.op=2 %FIM% THEN 1 ELSE 0); 
BUMP ic,cell; 
checkic ( ) ; 

IF lc>=adr2 THEN RETURN; 
w _ [lcj-$mcs4; 
punch st ( ) ; 
punchby te(w, ad 2 ,0) ; 
punchbyte(w.ad3 , 1 ) ; 
IF w.adl ft 

(CASE Clc-$mcs4) .A 8M OF 
=255: Clc-$mcs4+l)/40 0B; 
ENDCA6E ClC-$mcs4)/400B ) 
AMD f=0 THEN punchrrC) 
ELSE punchendC); 

% adr err if address not within next PROM if at 255 
or this PROW, but not on FIM instr in any case % 
END; 
=2: % 16 bit instr OP + 12 bit adr % 
BEGIN 

puncnst ( ) ; 
puncnbyteCw. op, 0) ; 
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bump ic; 
w - [lc]-$mcs4; 
punchbyte (w. ad 1 ,1 ) ; 
punchendC ) ; 

BUMP cell; % only place lc and cell diverge % 
checklc ( ) ; 

IF lc>=adr2 THEN RETURN ; 
puncnstC); 
punchbyte (w.ad2 ,0) ; 
punchbyte (w.ad3 , 1 ) ; 
punchendC ) ; 
END; 
=4: % relocatable address - 8 bits % 
BEGIN 

w - w-smcs4; 
punchst C ) ; 
punchbyte (w.ad2 ,0) ; 
punchbyte(w.ad3 ,1 ) ; 
punchendC ) ; 

IsoutCojfn, $ M "+1 .V 18M6, 0); 

END; 
ENDCASE 

error ($"iliegal instr type"); 
puneolC ) ; 
RETURN" END. 
(hex) PROCEDURE(x); % convert x to HEX character % 
CASE x OF 

IN L0,9J: RETURNlx+'O); 
in [10,153: returncx-io+'ad; 
ENDCASE error ($"illegal hex value"); 
END. 
(punchst) PROCEDURE; % punch starting char, if any % 
CASE progtype OF 
=intei : 
BEGIN 

IboutCpjtn, 'B); 
END; 
=prolog: NULL; 
=lprolog: NULL; 
ENDCASE NULL; 
iboutCojfn, ' ); 
RETURN END. 
(punchend) PROCEDURE; % punch ending char it any % 
CASE progtype OF 
=intel : 
BEGIN 

ibout (pjfn, 'F) ; 
conf irm(cell,0,0) ; 
END; 
=prolog: NULL; 
=lprolog: NULL; 
ENDCASE NULL; 
iboutCojfn,' ); 
RETURN END. 
(punchrr) PROCEDURE; % like punchend, but address error displayed 
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CASE progtype OF 
=intel; 
BEGIN 

IboutCpjfn, *F) ; 
conf irm(celi,0,0) ; 
END; 
=proiog: NULL; 
=lprolog: HULL; 
ENDCASE NULL; 
IboutCo jfn, 'A) ; 
BUMP adrerr; 
RETURN END. 

(confirm) PROCEDURE %confirm response from programmer % 
(addr, % the address being programmed % 

c, % the return character if progtype=prolog, lprolog % 
x); % echo confirmation code % 
LOCAL t, f, waitime; 

IF direct AND idvchr Cp jf n) .LH # 600Q15B THEN 
% i.e. pjfn is not NIL: % 
BEGIN 
f - 0; 

CASE progtype OF 
=intel : 
BEGIN 

idisms (1000) ; % at least 10 chars to send % 
waitime _ 600; 
END; 
=proiog: 
BEGIN 

waitime _ 0; 
idisms( 

(CASE x OF 

=progend: 25; 
=progcr: 20 
ENDCASE 0) 

); 

END; 

=lprolog: 
BEGIN 

waitime - 0; 
idisms( 

(CASE x OF 

=progend: 25; 
=progcr: 20 
ENDCASE 0) 

); 

END; 
ENDCASE NULL; 
LOOP BEGIN 

t _ itimeO; 

WHILE SKIP Isibe(pjfn) DO 

IF (itime()-t) > waitime AND f = 2 OR Cltimeo-t) > 
5000 THEN 
BEGIN 

IF f=2 THEN RETURN; 
IF NOT SKIP isibe(pjfn) THEN EXIT; 
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% give 'm 
ipsout($" no 
IF NOT SKIP i 
THEN jerrorCr 
Ipbout(EOL); 
ipsout($" typ 
CASE binchrC) 

=CA, = EOL, 

='S, ='s: 
BEGIN 
ipbout ( 
Jpsout ( 
before 
ipbout C 
GOTO ss 
END; 

='R, ='r: 
BEGIN 
ipbout C 
ipsout C 
before 
ipbout C 
adrl - 
GOTO rs 
end; 

='P, ='p: 
BEGIN 
ipbout C 
ipsout C 
before 
ipbout C 
adrl - 
GOTO rs 
END; 



ore chance % 
irmation for wo 
101B, addr-$mcs 



rd "+ugly); 

4, 140004B6+10) 



S, R, P or ? for help M +ugly); 

NULL; 



reset on the programmer box 
eding "+ugly); 



one m 
conf 
nout ( 
3); 

e CR, 
OF 

=CR: 



EOL) ; 
$"hit 
proce 
EOL); 
tart; 



EOL); 
$ M hit 
proce 
EOL ) ; 
addr ; 
tart; 



EOL ) ; 

$ M hit 

proce 

EOL); 

(addr-$mcs4) .A 777400B + $mcs4; 

tart; 



reset on the programmer box 
eding M +ugly); 



reset on the programmer box 
eding "tugly); 



,o start over (r 
+ugly); ipboutC 



especify start 

EOL) ; 

this word"+ugiy); 



o restart at first word of this 
ipoout(EOL); 



BEGIN 

ipboutCEOL); 

ipsout C$"type CR to continue"+ugly) ; 
ipbout (EOL) ; 
ipsout($"S t 
and finish)" 

ipsoutC$"R to restart from 
ipboutCEOL); 
ipsoutC$"P t 
prom"+ugly ) ; 
REPEAT CASE; 
END; 
ENDCASE 
BEGIN 

ipsout($"type ? for help, f ella"+ugly ) ; 
ipboutCEOL); 
REPEAT CASE; 
END; 
RETURN; 

end; 
WHILE NOT SKIP isibeCpjfn) DO 
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BEGIN 

ibin(pjfn) ; 
r2 .. r2 .A 7M; 
IF monitor THEN 

IF r2 < 40B THEN 
BEGIN 

%ipbout ( '*) ;% %to get your control characters 
printed% 

%ipbout(r2+40B);% 
Ibout(lOlB); 
END 
ELSE Ibout(lOlB) ; 
CASE progtype OF 
=intel: 

IF r2 IN C40B, '2] THEN 
CASE f OF 

=0: IF r2= r B THEN f _ 1 ; 
=l: IF r2='F THEN f - 2? 
= 2: IF r2='F AND doneCaddr) 

THEN f - 2 ELSE £ - 3 ; 
ENDCASE NULL; 
=prolog, =lprolog; 
BEGIN 
CASE x OF 

=progend: % demand CR, string space % 
CASE £ OF 

=0: IF r2=c THEM £_1; 
=1: IF r2=LF THEN f-4 

ELSE IF r2=CR OR r2 = EOL THEIm t-3; 
=3: IF r2=' THEN £-2 

ELSE IF r2=V AND doneCaddr ) THEN 

ENDCASE NULL; 
=progcr: % demand CR, LF % 
CASE f OF 

=0: if r2=c THEN £_1; 
= 1: IF r2=EOL THEN £_2; 
ENDCASE NULL; 
ENDCASE % demand the char % 
CASE f OF 

=0: IF r2=c THEN £.2; 

ENDCASE NULL; 
END; 
ENDCASE NULL; 
END; 
END; 
END; 
RETURN END. 
(done) PROCEDURE(addr); % return true if end of PROM% 
RETURN C 

IF (addr+l-$mcs4) .A 8M = 

OR addr=adr2-l THEN 1 
ELSE 0); 
END. 
(puncnbyte) PROCEDURECbits ,e) ; % punch one 4 bit byte and list it 
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% bits=byte to punch, e=true if 2nd 4-bit byte % 
LOCAL w,i, x; 

IF progtype=intel OR ijfn#0 THEN 
BEGIN 

rl _ bits; iLSH rl,32; x _ rl; 
FOR i.O UP 1 UNTIL = 4 DO 
BEGIN 

r2 - x; rl - 0; iLSHC rl,l; 
w .. r 1 ; x _ r 2 ; 
IF w THEM 
BEGIN 

IF progtype=intel THEN Ibout (pjfn , one) ; 
ibouttojfn, '1); 
END 
ELSE 

BEGI?^ 

IF progtype=intel THEN ibout Cp j f n , zero ) ; 
IboutCojfn, '0); 
END; 
END; 
ibout (ojfn, f ); 
END; 
CASE progtype OF 
=intel: NULL; 
=prolog: 
BEGIN 

IF lastf THEN conf irmC lastcell , iastchar, laste); 
lastchar«hex(4M-bits) ; 
ioout (pjfn, hex ( 4M-bits)); 
1 a s t f - l ; 

laste _ IF e THEN progend ELSE 0; 
lastcell « cell; 
END; 
=lprolog: 
BEGIN 

IF lastf THEN conf irmC lastcell , Iastchar, laste); 
lastchar_nex(4M-bits) ; 
lpout (pjfn, hex ( 4M-bits) ) ; 
lastf _ 1; 

laste .. IF e THEN progend ELSE 0; 
lastcell «. cell; 
END; 
ENDCASE NULL; 
RETURN END. 
Cpuneol) PROCEDURE; % punch end of instruction stuff, if any % 
CASE progtype OF 
=intel : 

% IF Clc-$mcs4) .A 2M = THEN BEGIN 
Iboutcpjfn, CR); 
Ibout Cpjfn, LF); 
END;% 
NULL; 
=prolog: null; 
=lprolog: NULL; 
ENDCASE NULL; 
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RETURN END. 
(Ipout) PROCEDURE Cjfn,char); 

% output a character to the copy printer port of a 
lineprocessor % 
iboutC jfn,33B) ; 
iboutC j£n,52B) ; 
ibout C jfn,40B) ; 
iboutC jfn,41B) ; 
ibout Cjfn, char ) ; 
RETURN; 
END. 
(findline) PROCEDURE; % scan ijfn text for next instr % 
LOCAL 

x, % character % 

slasnflg, % true if line nad '/ on it % 
i; % index into string % 
IE ijfn=0 THEN RETURMstring_174B9); 
slashflg . 0; 
LOOP 

BEGIN 

igtstsCi jfn) ; 

IF r2 .A 1B9 THEM % end of file % 
BEGIN 

string - 17 4B9; % EOL,0 % 
return; 
END; 
isinCijfn, sstring .V I8w6, 100, LF); 
A r2 - 0; % ensure null % 
i . Sstring .V 4407B8; 
LOOP CASE (x_*i) OF 

= V: IF comflg = THEN slashflg.l; 
=LF, =0: BEGIN 

IF slashflg THEN RE1URN; 

FOR i_0 UP 1 UNTIL >= tabs DO ibout Co jfn,' ); 
IsoutCojtn, sstring .V 18M6, 0); 
REPEAT LOOP 2; 
END; 
= '%: comfig _ IF comflg THEN ELSE 1; 
EWDCASE i^iULL; 
END 
END. 
Cerror) PROCEDURE % general error routine % 
% argument % 

Cs); % a atring % 
ipboutCEOL); ipsout CS"error : *'+ugly); 
ipsoutCs+ugly) ; ipboutCEOL); 
ihaltf ; 
RETURN END. 
Cjerror) PROCEDURE % jsys error writing procedure % 
% argument % 

Cerrorn); % error number % 
ierstrClOlB, 4bll+errorn, 0); 
iJFCL; iJFCL; ipboutCEOL); 
RETURN END. 
FINISH 
Cdirections) How to program a PROM 
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To compile the program (and obtain a REL file) 
Go into NLS. 

Load the desired NLS file containing the program. 
From the programs subsystem COMPILE FILE using (MCS4,) to the rel 
file of your choice. 
Quit. 

You are now at TEWEX EXEC C @ ). 
$rite a PROM set and/or obtain an assembly listing 

The routine <LP>MCSLPR>SAV" drives PKOM programmers and creates 
assembly listings. 

To obtain an assembly listing before programming PROMS. 
Get a rel file as above. 

Get a sequential tile coresponding to the source of the rel 
file. (For example, OUTPUT SEQUENTIAL FILE) 
From EXEC run <LP>MCSLDR.SAV 
Answer questions namely: 

Give your rel file followed oy <ESC> 
Punch file is NIL: <CR> 
Provide the name of he text file <CR> 
Provide the name of a file to save the listing <CR> 
Wnen MCSLDR finishes copy the listing tile tto a printer 
(Paper tape and the Intel programmer are essentially obsolete) 
To obtain a prom set from a PROLOG programmer connected as a 
terminal to the host machine or connected to a line processor 
with a copy printer receiver. 
Get a rel file as above. 
From EXEC run <LP>MCSLDR.SAV 
Answer questions namely: 

Give your rel file followed oy <ESC> 

Punch file is TTY: <CR> (for a line processor) 

TTYnn: <CR> (for a local terminal) 
Programmer type is L for a line processor <CR> 

P for a local terminal <CR> 
Either echo mode is OK 

If less than the full file is to be programmed provide 
tne inclusive bounds in DECIMAL! 
The PROM boundaries are: 
prom - 255 

1 256 - 511 

2 512 - 767 

3 768 - 1023 

4 1024 - 1279 

5 1280 - 1535 

6 1536 - 1791 

7 1792 - 2047 

Provide the name of he text file <CR> or NIL: <CR> 
Provide the name of a file to save the listing <CR> or 
NIL: <CR> 

With the PROLOG power off insert a erased PROM into the 
COPY socket, turn he power, and press RESET. Enter a 
<CR> to the terminal. The MCSLDR will continue to drive 
the PROLOG until complete by requesting a <CR> for each 
new PROM as acove. 
Create a new MCSLDR 

MCSLDR is a stand alone tenex routine. The source is stored in 
(LP,MCS4,PPROG) . Obtain a rel file named punch. rel (for example) 
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then Goto Tenex. 

<arcsubsys>TENLDR <CR> 
/S <cr> 
punch <cr> 

<andrews>HOrun <cr> 
<arcsubsys>stenex <cr> 
<altmode> 

Ctnere will be two undefined referances) 
DDT <CR> 

init <ESC> g (initializes MCSLDR and exits ddt) 
SSAVE <ESC> <ESC> <ESC> <LP>MCSLDR . SAV <CR> 
OLD INTEL DOCUMENTATION 

Setup to Program the PROM 

Setup the INTEL programming board 

Connect the INTEL board to TEN tty port xx (currently using 
26 octal). 

Connect a terminal to tne grey box (if desired) and set the 
grey box switches for INTEL <-> TEN connection. 
On the TENEX terminal, say 

ASSIGN <altmode> TTYxx: <cr> (e.g. TIY26: <cr> ) 
Run the punch program 

On the TENEX terminal, type 
DDT <cr> 
start<altmode>G 
[punch file: ] TTYxx: <cr> 
[entire file to be punched? ] <cr> 
[sequential text input: ] <prog>.TXT <cr> 
or, if no listing is desired, type NIL: 
[listing output: J LPT: <cr> 

or, if no listing is desired, type NIL: 
the program will say "type CR wnen PROM is ready" 
Double check: tne setup, and type CR when you are ready. 
Did it work: correctly? 

Expect to see the following on the TENEX terminal (and on the 
terminal connected to the grey box, if connected) 
P 

000 
yyy (in decimal) 

where yyy is the last cell of the PROM to be programmed 
then a bunch of things liice BNPPMNPNPF 

Where IM = 1 , P=0, and the whole thing represents a PROM 
word. 

There may be either one or two of these per line. 
Locations appear in the left margin. They are program 
locations, not PROM locations: These are the same for 
the first PROM, but program location 256 is PROM 
location zero tor the second PROM, etc. 
A final "F" on a line oy itself means the PROM is done. 
Look for the following on the TENEX terminal: 

"Type CR when PROM is ready" when a PROW is finished means 
that the program wants to do another PROM. Remove the 
finished one, put in a new one, and type CR when ready. 
The message "successful completion" means you are done. 
The message "file not closable" is standard when using the 
TTKxx: port. 
If you are unaole to program a PROM word, you will see $$$? 
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after the BNPP...F thing for the word that failed. The TENEX 
terminal should say "can't program that cell" and quit. 
Programming will fail if: 

1) the PROM is not erased 

2) the programming switch is set to disabled (on INTEL 
board) 

3) INTEL board is not setup right 

4) the PROM is not seated in the socket 

If TENEX crashed or the programming is stopped somehow, you 
may re-program without erasing the PROM - i.e. you may 
re-write the PROM if you write the same thing again. 
Variations: 

You may punch a paper tape by giving PTP: as the punch file 

rather than TTYxx:. In that case, just type CR when the punch 

program says "type CR when PROM is ready". 

You may just obtain a listing of the program by giving NIL: as 

the punch file, and giving the TXT file as sequential test 

file and LPT: as the listing file. 

You may program only certain locations oy saying no when the 

punch program asks "entire program to be punch?". In that 

case, you provide two program locations xl thru x2, and only 

locations xi thru x2 will be programmed. 



